Option Strict Off
Option Explicit On
Namespace BMLERP
	Friend Class frmAdmin
		Inherits System.Windows.Forms.Form

		Private Sub cmdAdduser_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdAddUser.Click
			Dim myform As New frmAddUser
			myform.Show()
			'  frmAddUser/.ShowDialog()
		End Sub


		Private Sub cmddeluser_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdDelUser.Click
			Dim myform As New frmDelUser
			myform.Show()
			'frmDelUser/.ShowDialog()
		End Sub


		Private Sub cmdGroupRight_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdGroupRight.Click
			Dim myform As New frmProgramRight
			myform.Show()
			'frmProgramRight/.ShowDialog()
		End Sub

		Private Sub cmdChangePassword_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdChangePassword.Click
			Dim myform As New frmChangePassword
			myform.Show()
			'frmChangePassword/.ShowDialog()
		End Sub


		Private Sub cmdExit_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdExit.Click
			Me.Close()
		End Sub



		Private Sub cmdMenuPad_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdMenuPad.Click
			Dim myform As New frmMenuPad
			myform.Show()
			'frmMenuPad/.ShowDialog()
		End Sub

		Private Sub cmdUserGroup_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdUserGroup.Click
			Dim myform As New frmUserGroup
			myform.Show()
			'frmUserGroup/.ShowDialog()
		End Sub

	End Class
End Namespace